home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Application, determining if running < prev    next >
Encoding:
Text File  |  1997-07-14  |  449 b   |  11 lines
  1. 'Description: Determines if an application is running by finding its window
  2.  
  3. 'Declare Function FindWindow% Lib "user" (ByVal lpClassName As Any,ByVal lpCaption As Any)
  4.  
  5. 'Place the following code in under a command button or in a menu, etc...
  6. lpClassName$ = "SciCalc"
  7. lpCaption$ = "Calculator"
  8. Print "Handle = ";FindWindow(lpClassName$, 0&)
  9. Print "Handle = ";FindWindow(0&, lpCaption$)
  10. Print "Handle = ";FindWindow(lpClassName$,lpCaption$)
  11.